home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / prg_casm / jlvesa11.zip / JLVESA19.ASM < prev    next >
Assembly Source File  |  1995-11-14  |  684b  |  46 lines
  1. ; This file is part of JLVESA SVGA-library
  2. ;
  3. ; Copyright 1995 Johannes Lehtinen
  4. ; All rights reserved
  5.  
  6. model large,c
  7. p386
  8.  
  9. segment jlvesa19_TEXT USE16 'CODE'
  10. assume cs:jlvesa19_TEXT
  11.  
  12. ; void JVColor_Set(JVUByte color, JVUByte red, JVUByte green, JVUByte blue)
  13. ;
  14. ; Sets one color
  15.  
  16. proc JVColor_Set far
  17.    public JVColor_Set
  18.  
  19.    push  bp
  20.    mov   bp,sp
  21.  
  22.    ; Set color to modify
  23.  
  24.    mov   dx,3c8H
  25.    mov   ax,[ss:bp+6]
  26.    out   dx,al
  27.  
  28.    ; Output color values
  29.  
  30.    mov   dx,3c9H
  31.    mov   ax,[ss:bp+8]
  32.    out   dx,al
  33.    mov   ax,[ss:bp+10]
  34.    out   dx,al
  35.    mov   ax,[ss:bp+12]
  36.    out   dx,al
  37.  
  38.    pop   bp
  39.    retf
  40.  
  41. endp JVColor_Set
  42.  
  43. ends
  44.  
  45. end
  46.